home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / rx-patcher.lha / RX-Patcher / rx-patcher.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-03-06  |  437 b   |  22 lines
  1. /* rx-patcher V1.0  */
  2. /* Patch den rx-Befehl so, daß er kein Ausgabefenster mehr
  3.    öffnet und legt das Ergebnis in SYS:Rexxc/RXNIL ab
  4. */
  5.  
  6. OPEN(in,"SYS:Rexxc/RX", "read")
  7. OPEN(out,"SYS:Rexxc/RXNIL", "write")
  8.  
  9. daten=READCH(in,5000)
  10. P=POS("CON:", daten)
  11. IF P>0 THEN DO
  12.   daten=LEFT(daten,p-1) || 'NIL:' || X2c('00') || SUBSTR(daten,p+5)
  13. END
  14. WRITECH(out,daten)
  15.  
  16. CLOSE(in)
  17. CLOSE(out)
  18.  
  19. Say "RX ist gepatcht, der neue Befehl heisst RXNIL!"
  20.  
  21.  
  22.